﻿Public Class BEtejido

#Region "Declaración de variables"

    Inherits BEmuestras
    Private codTejido As Integer
    Private descripcion As String
    Private peso As Integer
    Private morfologia As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodtejido As Object, _
            ByVal pDescripcion As Object, _
            ByVal pPeso As Object, _
            ByVal pMorfologia As Object)

        Me._codTejido = pCodtejido
        Me._descripcion = pDescripcion
        Me._peso = pPeso
        Me._morfologia = pMorfologia

    End Sub

    Public Property _codTejido() As Integer
        Get
            Return Me.codTejido
        End Get
        Set(ByVal value As Integer)
            Me.codTejido = value
        End Set
    End Property

    Public Property _descripcion() As String
        Get
            Return Me.descripcion
        End Get
        Set(ByVal value As String)
            Me.descripcion = value
        End Set
    End Property

    Public Property _peso() As Integer
        Get
            Return Me.peso
        End Get
        Set(ByVal value As Integer)
            Me.peso = value
        End Set
    End Property

    Public Property _morfologia() As String
        Get
            Return Me.morfologia
        End Get
        Set(ByVal value As String)
            Me.morfologia = value
        End Set
    End Property


End Class
